£ 


БЕНЕЕБЕЕЕЕБЕБНЕЕЕЕЕЕЕ| 
THE sinc TIMES 


JULY A PUBLICATION OF THE NEF TS USERS GROUP 


EDITORIAL BY STEVE BERG 


HERE WE ARE WITH ANOTHER ISSUE OF THE SINC TIMES . YOU WILL NOTICE 
THAT THIS ISSUE IS FAT . THE SUBMISSIONS HAVE STARTED COMING IN AT A 
FASTER PACE , ALLOWING US TO SEND OUT A CATCH UP ISSUE TO GET THE SINC 
TIMES UP TO DATE . WE HOPE YOU ENJOY THIS SINC TIMES . I THINK WE HAVE 
SOMETHING FOR EVERYONE IN THIS ISSUE. 
THERE ARE MANY T/S COMPUTER FESTS GOING ON . WE WISH THAT EVERYONE 
@ ou AVAIL THEMSELVES TO ONE OF THESE AND HELP KEEP THE SPIRIT OF T/S 
/|COMPUTING ALIVE AND WELL. 
ATTACHED TO THIS ISSUE YOU WILL FIND А FLYER FOR. UPDATE MAGAZINE WITH 
A QUESTIONAIRE . WHY NOT FILL IT IT OUT AND SEND IT IN . IT CAN ONLY 
HELP FURTHER OUR COLLECTIVE INTERESTS IN TS COMPUTING . 
IF YOU’VE BEEN KEEPING UP WITH WHATS HAPPENING YOU KNOW THAT MORE AND 
MORE NEW AND UPDATED PRODUCTS ARE BECOMING AVAILABLE FOR THE T/S USER. 
NEXT ISSUE WE WILL TRY TO GIVE YOU SOME INSIGHT INTO THESE ITEZMS . 
IT'S TIME TO GIVE UP THE SOAPBOX AND GET TO THE GOOD STUFF. 
SEND COMMENTS OR QUESTIONS TO STEVE BERG-EDITOR 

THE SINC TIMES 

6634 ORIOLE AVE 

JACKSONVILLE, FLA 32216 
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А TOUR OF THE BUS DEPOT 
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Jacksonville іс known for the many EBS's that operate he 
At last count, there was over 70 systems up and running. M 
Of them are 24 hr. boards. As for us Timex & Sinclair uss: 
one ig most prevailant; the Bus Depot. The SYStezm OFerato 
Felix  Pendas, has kindly contributed some disk space to us 
for the past year or so. Thís T\S sub-board has enhanced пу 
skille as a computer enthusiast, as well as introduced me to 
a few new friends. I would like to share a tour of the Bus 
Depot in hopes of reaching those people that just might be 
interested if they only knew more about it. 


The Bus Depot exists under command of OPUS-CBCS v1.03a. 
Which is in the family of FidoNet BBS's. There аге literally 
hundreds cf ‘nodes’ (actual BBS’s) that on a daily basis, 
exchange ‘packets’ of information. The most amazing part of 
this is, for about what you pay for a postage stamp, you can 
send ‘electronic mail’ to a friend across the country 
OVERNIGHT! (Eat your beart out UPS!) This service is not 
limited to the continental USA, foriegn countries are also 
accessable through FidoMail. Of course, the cost of the 
transfer goes up when you start talking about overseas 
transfers. There is even a facility to attach a file 
(program) to your FidoMail and the recipient will recieve it 
along with the message. This could be an excellent way for us 
T\S users to keep in touch without those $150.00 phone bills! 


Let's get down to business here. With your favorite 
software loaded and the settings as follows; Conversion: 
none, Duplex: full, Word length: 8, Stop Bits: 1, Parity: 
none, you should be ready to connect. You may want to use the 
auto dial feature if available and call (904) 262-6761. Don't 
be discouraged if you don't get through on the very first 
try. This is a very busy system with many users. I try to 
call on non-prime time hours (early morning or late night>. 
If you have an auto repeat dial option this may be the time 
to use it. Upon connection, press enter once. The BBS should 
now take over displaying the inital opening displays. When 
prompted for your name, don't be afraid to use your real one. 
A common misconception is that your name might be turned over 
to some hungry FBI пап just waiting to jump on some poor 
computer nut. This just is not so. Anyway, after registering 
you may be given some ‘new user’ text that should be read 
carefully. I believe most of all, the Sysops are trying to 
get across is to please use the system in a decent, 
responsible manner. 


After all this hoo-ha of the inital logon, you will be 
presented with several selections: 


(1) About the system 

(2) Editorial 

(3) Local BBS listing 

(4) FCC Proposed Tax 

(5) FCC continue 

(6) Top ten uploaders 

(7) Top ten callers 

(8) The Bus Depot address 
(0) Quit (exit to system 


At this point select 0 + ENTER. You then will be а to 
more area. This usually contains a brief comment by the Sys 
СЇ current events. You can abort this by sending a CONTROL 
(on MTERM, capshift 7 + c and on Zterm, capshift 1 + с). Once 
through this you are into the heart of the system and looking 
at the main menu: 


led + 
t 


Message section 
А) пе Questicns 
C)hange setup 


F)ile section Goodbye 
B)ulliten Yell at sysop 
User list E)xtra info Version 


(log off)? 


For 
message 


now, press M + ENTER. This 

base you were in or if 
one for you. Once there, type A 
message areas. Currently, there are 13 available areas to 
choose from. You шау want to pick 7 as this is our TNS 
section. Take your time and browse through the messages. You 
may want to type one in yourself, stating you are a new user. 
Our message base has been very active lately. After spending 
some time there you might want to check out our files 
section. This includes many downloads for the 2068 as well as 
some for the 1000. Perry Wilson of our users group has spent 
much time uploading RLE Graphic files. Take your time and 
explore the power of this system. Let the Sysop know that you 
value his effort to keep some disk space set aside for us 
T\S'ers. Above all, CONTRIBUTE TO THE SYSTEM with your 
messages and uploads! Have fun Tom Phillips 


will put you into the last 
you're a new user it'll pick 
+ ENTER to list all the 


THIS CAME FROM FRANK TOEMAYCWHERE ARE YOU?) ON ONE OF 
HIS FREEWARE MDVS FOR THE QL. IF YOU HAVE AN EPSON COMPATIBLE 
OR EVEN BETTER A SINCLAIR PRINTER OR ONE OF IT'S LOOK ALIKES 
YOU WILL LIKE THIS PROCEDURE. STUDY IT OUT TO LEARN TO USE IT 
AND REMEMBER ALL OF THE CODES ARE PROCEDURES AND SHOULD BE 
USED AS SUCH. ; 


SUBMITTED BY STEVE BERG. 


DEFine PROCedure Set Codes 


Esc$=CHR$(27) :Reset$=Esc$& '9':Retn$-CHR$ C13):LF$zCHR$(C10):PF$-CHRSC12) 
VT$=CHR$(11):LFn$=Esc$&’J’:REMark You Must ADD CHR$(Var n) 
ELon$-Esc$&'M':ELoff$-Esc$&'P ’: CONon$=CHR$ (15) : CONof f $SZCHR$C18) 
LGQon$-Esc$&'x1':LQoff$-Esc$&'xO ’: PROPon$=Esc$& ’p1 ’: PROPof f$=Esc$& ро ’ 
SUPERon$=Esc$& ’S@ ': SUBon$=Esc$& ’S1’: SCRIPTof f$=Esc$& 'T ’ 
ITALon$-Esc$&'4':ITALoff$-Esc$&'5':MULTIOn$-Esc$&'!':MULTIoff$-Reset$ 
BOLDon$=Esc$& ’E ’: BOLDof f$=Esc$& ’F ’: DSon$=Esc$&’G ’: DSof f$=Esc$&’H’ 
DWon$=Esc$& ’W1’: DWof f$=Esc$& "МО ’: ULon$=Esc$&CHR$( 1): ULof f$=Esc$8&CHR$ СО) 
BK SPC$=CHR$ (8) : CLRBUF$=CHR$ (24) : PAPEROUTon$=Esc$& '9 ': PAPEROUTof f$=Esc$& ’8’ 
CGRE=Esc$& ’A &CHR$( 8) : SDGR$=Esc$& "К ’&8CHR$(O) &CHR$(1):GRoff$=Esc$& '2" 
DDGR$=Esc$& ’L ’&CHR$ (0) &CHR$( 1) : DDSG$=Esc$& 'Y '&CHR$ (0) &CHR$ (1) 

REMark QDGR$=Esc$& ’Z ’&CHR$ (0) &CHR$ C 12 : LFPn$=Esc$& '3 ’&CHR$ Cn) 


END DEFine Set_Codes 


DEFine PROCedure Test_Run 
OPEN#3, ser:Set Codes 
PRINT#3; BOLDon$ ; DSon$; ITALon$;:L 


END DEFine Test_Run 


DEFine PROCedure Save_Codes 
DELETE mdvi_Printer_Codes 


IST#3,TO 32700:PRINT#3;CHR$(C12);Res 


SAVE mdvi_Printer_Codes, 32500 TO 32666 


END DEFine Save_Codes 
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FEM MODIFIED TO REFLECT JEA RATES AND TRANSLATED FROM 
РЕМ BASICA TO SINCLAIR BASIC, JULY 1988, RY PERRY WILSON. 
REM ORIGINAL PROGRAM IN "BASIC PROGRAMS FOR inE пой" 

REM BY CHARLES STERNPERG 

PRINT 

REM JEA ELECTRIC ANALYSIS PROGRAM 

LET М=1в9 

FEAD CyB 

READ 0,5 

PRINT "INITIAL READING WAS ";S;" ON DAY "5 

PRINT "COST PER UNIT IS *; 

PRINT "MINIMUM BILL IS $5.50, AND IS ADDED TO ELECT. CHG." 
PRINT "TAX IS 1@% OF DIFFERENCE BETWEEN ELECTRIC CHARGE" 
PRINT 'AND FUEL CHARGE, AND IS INCLUDED IN THE TOTAL." 


PRINT *ENTER EACH DAY (DATE) AND READING AS DATA,";: REM (examples are shown on lines 510 


520. Delete or change these lines to represent your own values.)* 


79 

ea 

98 
108 
110 
129 
152 
140 
150 
148 
172 
iga 
190 
zƏ2 
214 
229 
2208 
240 
258 
280 
27 
290 
388 
319 
222 
338 
235 
358 
362 
370 
зай 
385 
390 
428 


PRINT "STARTING AT LINE 510." 

PRINT 

PRINT * DATE';TA2 20;"kWh";TAR 30%"Т0Т. ELECT." 
PRINT * READ"; TAB 10: "READING" TAB 20:*USED';TAP 323°TO DATE" 
PRINT 

LET T2=5 

LET D2=D 

FOR I=1 ТОМ 

(ЕТ М=1 

READ D 

IF D=Q THEN GQ TQ 22 

IF D<D2 THEN GO TO 208 

LET N-D-DZ 

LET D2-D 

READ R 

LET T@=R-T2 - 

LET Ti=T@*C 

PRINT TAB 43D;TAB 10;R;TAR 2@;Т0:ТАВ 325713 
IF М-і THEN GO TO 272 

PRINT " **(*5N;* DAYS); 

LET TZ-R 

LET Ni-D-1 

PRINT 

NEXT I 

LET T4=R-S 

PRINT. ТАР 20;'----'31TAB 321*—————- d 
LET T3-T4*C 

LET Ғ-.03424 

LET &-TA*F 

LET Х-Т3-А 

LET Y=.1*X 

LET T3=T3+P+(Y+(.1*B)) 

PRINT * TOTALS"3TAB 20;Т4;ТАР 3213 
PRINT 'FOR ";N1;* DAYS" 

PRINT "AVERAGE DAILY USE WAS: ":TA4/N1; " kWh" 
PRINT "AVERAGE DAILY COST WAS: "3T3/N1 
STOP 

DATA .0592,5.5 

DATA 1,7287 

DATA 19,8423 

DATA à 


NORTH EAST FLORIDA T/S USERS GROUP 
BUSINESS MEETING MINUTES 


Date: 06/11/88 
Members present: 9 


Subject: Temporary elections. 
Offically voted Norm Petrik as Book Librarian; Marl (Ham) Hammette 


as P.D. Software Librarian; Tom Phillips as Secretary & Newsletter 
Exchange. ; 
General elections to be held 08/13/88 


Subject: Treasurers report. 
Membership dues must be paid by mail as our current meeting place 


does not allow any exchange of money in their building. Dues have been 
increased to $15.00 / yr. upon voting of the issue. Dues are due on 
07/01/88. 


Subject: Newsletter. 

The need for articles to go into our newsletter was addressed. 
Members are urged to contribute іп any way they can. Remember folks, 
this is OUR LIFELINE...... 

A decision was made to limit the newsletter to 5 sheets as to keep 
the mailing costs minimal. 

Voted to install notice in next newsletter regarding the issue of 
local mailouts of the newsletter. "No local mailouts unless 
arrangements have been made in advance with N/L Exchange Rep. (Tom 
Phillips- 739-2580). 


Subject: QL USA Newsletter 
A discussion and vote was made regarding the affiliation of the 


N.E.F.T/S.U.G. and the QL USA Newsletter. A vote revealed that the two 
N/Ls should not share the same Treasury. 


Subject: General. 

A decision has been made to return to our previous policy of 
making the 1st meeting of the month a business meeting. The actual 
business meeting is to be limited to 1 hour 1f possible. This will 
allow some free 'play time'. 

A suggestion was made to ask members to offer some type of 
presentation for the club on the 2nd meeting of the month. We have a 
lot of good talent out there..... let's share it! 


LIGHT-BAR MENUS ON THE ZXB1/T51000 


Most programmers dcn't give menus much thought. After all, 
menus are just a way to cet the user where he wants to go, aren't 20 
they? Definitely not! | (J 

Years of system design, analysis, and programming have 
taught me that good, well designed, eye appealing, user-friendly 
menus are one of the single most important contributions to 
developing a system which will please the users. Remember, if the 
system pleases the users then the system will be a success. МО 
matter how efficiently a system operates. if the users do not 
like to use it, it will not be utilized or appreciated. 

One of the simplest and most eye-appealing menu styles is 
the light-bar menu. A light-bar menu uses a moving bar to 
highlight a menu selection. The bar is controlled by the cursor 
keys. When the user has highlighted the desired selection, a 
carriage return is pressed and processing shifts to the selected 
option. f з 
This menu style іс currently very popular for use on 
mainframe and mini-computer systems. Until very recently, the 
light-bar menu was not often seen on microcomputer systems. But 
this has changed recently. As a result of faster processing 
speeds, todays micros are often equipped with the graphics 
capabilities to handle such tasks. As an example, I recently 
designed a system to computerize the personnel department of a 
large aerospace firm. The system runs on a network of IBM PCs 
using the Dbase III+ DBMS. By using compiled code, I was able to 
achieve an execution speed which enabled me to specify light-bar 
menus. These "snazzy" menus were a definite plus as far as the 
users were concerned, and made a big contribution to the overall 
success of the project. 

Because of its inverse graphics capabilities, the ZX81 can 
be made to simulate the light-bar menu style very handily. Here 
is a simple menu which will illustrate the concept. Enter the 
program into your ZX81, and then save it to tape (for use in 
future programming ventures). Note that in lines 190-220 the B$ 
values are the same as the A$ values but in graphics (inverse) 
mode. Now run the program. 

The menu will initialize with the first selection (GAME 1) 
"highlighted". Use the unshifted 6 and 7 keys to move the "light 
bar" (dark-bar?) through the selections. Keying newline will 
Cause the program to execute the highlighted selection. Notice 
the wrap-around feature at the top and bottom of the menu 
(handled by the "outofbounds" sections). 

By replacing the "HERE AT GAME #" routines with actual short 
games, you can create an entertaining program for the kids (line 
# 430 could be changed to 1000%Х to give more room for coding). 
By using a 64k rampack, vou could replace them with a series of 
useful home accounting rcutines, or maybe a series of more 
complicated games (for the bigger "kids" around the house). 
Additional selections can be added by dimensioning larger arrays 
and changing the appropriate PRINT AT statements. 

Comments and questions are welcomed. Send them to: 


Edward Snow ч 
2126 Churchill Downs Circle V 
Orlando, Florida 22825 
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REM +++ LIGHT-BERF MENU жжж 
REM WRITTEN 6/7788 BY 

КЕМ ED SNOU 

КЕМ 

REM sINITIRLIZE МаКТАВГЕЗ®+ 
LET xz5 

LET е 

LET СІРІ ят =230 

LET AGAIN=420 

LET СООН =4 0 

LET UP=S558 

LET CUTOFEGUHDSUE =G šQ 

LET DUTOFEDUNDSDOUN- его 

D IM 
DIM 
LET 
LET 
LET 
LET 


00 
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x DISPLAY **%**+* 


r= (n 
m ' 
OE 
m 


;"GRMES-TRPE 95 
PRINT AT 3,6) “%%%%%%%%%ж%%3% 
PRINT AT 4,8,"* 
PRINT AT £,8," «" RT 
8; "+"; АТ 5,11; A$ 
,8; "Se"; AT 7,11; R$ 
8 3,11; R$ 


5,11;В% 


AT Е.21; "+" 


FRINT AT 9,8; "+ 
PRINT AT 10,8; U 3353323433 * 


PRINT AT 12,8;"USE CURSOR К 


EYS TO" 


за 


OICE" 


398 
595 
420 
418 
N 
ага 
430 
сто 
440 


PRINT AT 12,7; "SRE CH 
SLOL 

REM 

REM sss AGAIN %%%%% 

IF INKEY$="" THEN GOTO AGAI 


REM BAR MOVEMENT ROUTINE 
Td INKEYS=CHRS (118) THEN е 
200 +х1! 

‘F INKEYS$=CHRS (34) THEN Go 


TO DOUM 


ава 


IF INKEY$=CHRS (35) THEN GO 


TO UP 


460 
4780 
480 


GOTO AGAIN 

REM 

REM szxx DOWN +242 
LET x=x+1 


ї +1 
IF х=9 THEN GOTO OUTOFBOUND 


PRINT AT X,11;EsíY? 

PRINT AT x51. 11; яА$ (1-1) 
GOTO AGAIN 

REM 

REM zx UP **£** 

LET XzX-1 

LET *vzvY-1 

IF х-4 THEN СОТО OUTOFBOUND 


PRINT AT X.11:B5$(00) 

PRINT Б” Х+1, 11;8% (+1) 
GOTO AGAIN 

REM 

REM sss OUTOFBOUNDSDOUN +++ 
PRINT AT &,11;n5!4) 


10 00 -J-J)OUI Ф 


JO gi Cn en (Ti (n (Ji 
C) C) Ul бу Су C) С) 


ЕБІМТ RT 5,11:Е%11! 


11; cde 
Ripe 


сото. ЕРІМ 
БЕМ 
REM sss GAME 1 HERE +++ 


ЕБІМТ AT 10,9; HERE AT GAME 


PAUSE 129 
GOTO DISPLAY 
REM 

REM ses GAME 2 HERE +244 
CLS 

PRINT AT 16,5: "HERE AT GAME 
PAUSE 120 
GOTG DISPLAY 
REM 

ВЕБ xs GAME 


ER INT RT 10,6: ' 


5) 


HERE +++ 
"HERE AT GAME 


PAUSE 120 
GOTO DISPLAY 
REM 


REM sz«s EXIT ROUTINE %ж%% 
STOP 


GAMES-TAPE VS. 1.1 


ЖҰЗ %%2%9% 


> = 
+ + 
, + АМЕ = * 
+ GAME Š x 
+ ЕХІТ + 
+ * 
x + Z + X> + $ $ + 55+ 555 
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CHO IC Е 


FIRST IMPRESSIONS (THE CONTINUING SAGA OF А QL USER) 
by Steve Berg 


AS PROMISED IN THE LAST ISSUE OF THIS NEWSLETTER I WILL 
START WITH HOOK UP DIAGRAMS FOR THE SERIAL PORTS ON THE QL. 
MOST LIKELY THE MOST ADDED THINGS HUNG ОМ А QL ARE EITHER A 
PRINTER OR A MODEM. ІМ THIS MONTHS COLUMN WE WILL BUILD A 
SERIAL CABLE TO FIT А QL SERIAL PORT TO A STANDARD MODEM. BY 
STANDARD I MEAN HAYES COMPATIBLE . THIS COULD INCLUDE AVATEX, 
PACKARD BELL , CAPETRONIC AND MANY OTHERS. I AM USING A 
CAPETRONIC 1200 BAUD . THE CABLE BELOW ALLOWS ME TO FULLY USE 
ALL THE AVAILABLE COMMANDS INCLUDING THOSE WHICH ALLOW ME TO 
TALK ТО THE MODEM DIRECTLY WITHOUT BEING TIED TO А PHONE 
LINE. IN THIS MODE THE MODEM WILL WRITE ТО THE SCREEN AND 
DISPLAY ITS BUILT IN SOFTWARE. THIS CABLE SHOULD WORK WITH 
ANY 1200 BAUD STANDARD MODEM AND ANY ОҒ THE POPULAR MODEM 
SOFTWARE PACKAGES. 


QL 9 PIN CONN DB 25 CONN. 

PIN 1 GROUND TO PIN 7 SIGNAL GROUND 
PIN 2: TX TO PIN 2 TX 

PIN 3 RX TO PIN 3 RX 

PIN Ө TO PIN 20 ОТК 

PIN Ө TO PIN 4 


THE ABOVE SET UP WORKS GREAT FOR МЕ. YOU САМ GET THE 
PARTS AT RADIO SHACK VERY INEXPENSIVELY . MAKE SURE YOU GET 
THE 9 PIN AND 25 PIN CONNECTORS THAT HAVE THE PINS NOT THE 
HOLES .RADIO SHACK CALLS THEM (MOST OF THE TIME ANYWAY) MALE 
CONNECTORS. YOU CAN USE 4 OR 5 CONDUCTOR WIRE . NOTE IF YOU 
USE 4 CONDUCTOR YOU WILL NEED TO PUT A JUMPER FROM РІМ 202 TO 
PIN 4 OF THE DB25 CONNECTOR. ALSO PAY THE EXTRA AND GET 
SHIELDED HOODS FOR YOUR CONNECTORS . THEY LOOK NICE AND KEEP 
INTERFERENCE LEVELS DOWN. WITH THIS CABLE YOU WILL NEED TO 
USE SER2 . YOU COULD SWITCH THE WIRES ON PINS 2 AND 3 ON THE 
QL END AND USE SER1 IF YOU NEEDED TO , BUT YOU WILL FIND MOST 
SOFTWARE LOOKS AT SER2 FOR MODEM COMMUNICATIONS. IF YOU ARE 
GOING TO RUN АТ 300 BAUD YOU MUST PURCHASE А MODAPTER FROM 


YOUR FAVORITE DEALER . THE QL IS NOT SET TO RUN AT 300 BAUD l 


WITHOUT THIS EXTRA HARDWARE. NEITHER I OR THE NEF TS USERS 
GROUP CAN TAKE RESPONDSIBILITY FOR THE RESULTS OF THIS LITTLE 
PROJECT. I AM USING IT AND IT WORKS WELL BUT THEN AGAIN I 
DON’T KNOW HOW WELL YOU SOLDER. WATCH FOR SHORTED WIRES ON 
THE CONNECTORS AND PROPER CONNECTIONS ON BOTH ENDS OF THE 
CABLE. GOOD LUCK AND HAPPY MODEMING. COMMENTS AND QUESTIONS 
CAN BE SENT TO STEVE BERG 

6634 ORIOLE AVE 

.JACKSONVILLE, FL 32216 
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ENGINEERING APPLICATIONS 


Pu D. H. Berry 


TUBEWALL THICKNESS 


This is a program to calculate required tubing wall thickness. 
It is a modified version of a program that appeared in Heating, 
Piping, and Air Conditioning magazine. It was developed on the 


TS 2068, but is uritten so that it mau easilu Бе tuped into 
Т51000, or TS1500 (146K Ram required). 


When operating pressures are lou, Barlow’s formula is used. 
is: T=PD/2S 


When the wall thickness is 0.1 X D or greater, Clavarino’s 


formula is used. | 
S = P*((1.3*D*D + 0.ажажа)/ (Пр — d#d)) 


Where: T = required wall thickness, in. 
P = internal pressure, psig 
D = tube outside diameter (00), in. 
d = tube inside diameter (ID), in. 
S = stress, psi 


The program has a menu to calculate Т, P, or S using ID or OD. 


Hope uou can use it. Let me know if uou have questions) and/or 


comments. 


18 REM TUBEWALL 

28 REM by D.H. Berry, Р.Е. 

28 REM 4-18-88 

98 PRINT 

68 PRINT 

78 PRINT "ыз TUBE WALL THICKNESS нн" 

88 PRINT 

98 PRINT 

108 PRINT "Display Prograa' 

118 PRINT "Description? (u/n)' 

128 PRINT 

138 INPUT a$ 

148 IF a$-'y* THEN 60 TO 182 

158 IF a$-'n* THEN 60 TO 1488 

158 CLS 

178 60 TO 58 

175 PRINT 

188 CLS 

198 PRINT 

288 PRINT 

218 PRINT "This program calculates required" 
228 PRINT "wall thickness for tubing (or ріре)." 
228 PRINT 

248 PRINT "When operating pressures аге" 
258 PRINT "low, the Barlow formula is used." 
258 PRINT 

278 PRINT "When the computed (or inputed)* 


275 PRINT "wall thickness becpmes' 
277 PRINT *8.1 X OD or greater," 

288 PRINT "The Clavarino formula is used" 
285 PRINT 

328 PRINT *Input b to start" 

330 INPUT b$ 

348 IF b$="b° THEN 60 TO 1488 

345 IF b$-'B* THEN 60 TO 1488 

258 60 70 188 

368 LET kl=s/p 

378 LET k3-(k1-71.3)/(k1*.4) 

388 LET ID=SQR (OD40D4kJ) 

398 RETURN 

699 REM Input P 

618 CLS 

628 PRINT 

638 PRINT 

548 PRINT "Input Internal Pressure (psig)' 
658 INPUT p 

648 RETURN 

678 REM input t 

888 CLS 

898 PRINT 

708 PRINT 

718 PRINT "Input Wall thickness (in.]' 
728 INPUT t 


738 RETURN 
748 REM Input OD 
758 CLS 
768 PRINT 
778 PRINT 
780 PRINT "Input tube 0.0. (in.)’ 
798 INPUT 00 
808 RETURN 
818 REM Input S 
828 CLS 
838 PRINT 
840 PRINT 
£*8 PRINT "Input Allowable Stress (psi)" 
Без INPUT s 
878 RETURN 
889 REM Barlow Formula 
898 LET t=(pš0D)/(2#s) 
9% RETURN 
918 LET p=(2#s#t)/0D 
929 RETURN 
- 958 LET s=(p#0D)/(2#t) 
955 LET ID-0D-(2st) 
958 RETURN 
988 REM Clavarino Formula using O.D. 


998 LET s-pt( (1.350D30D)*. A&IDID) / (OD4OD-ID&TD) 


1888 RETURN 

1818 LET ki=s/p 

1820 LET k2-(k14.4)/(k1-1.3) 

1038 RETURN 

1848 REM 0,2. 

1858 LET 00=(к2210+10)^.5 

1898 RETURN 

1188 REM ID 

1118 45 

1128 PRINT 

1138 PRINT 

1148 PRINT "Input I.D. (in.)* 
1158 INPUT ID 

1168 RETURN 

1178 REM Barlow Formula using I.D. 
1189 LET T=(ID#p)/(28(s-p)) 

1198 RETURN 

1200 LET p-21stt/( ID4280] 

1218 RETURN 

1228 LET s=p#(ID+2#t)/(2#t) 

1238 RETURN 

1258 REM Clavarino Formula using 0.0. 
1268 LET t=(0D-ID)/2 

1278 RETURN 

1289 LET s=kitp 

1399 LET p=s/ki 

1318 RETURN 

1388 REM Printout 

1398 PRINT "Int. pressure (psi) = "ір 
1480 RETURN 


1418 PRINT "Tube 0.0. lin.) = *{00 
1528 RETURN 
1830 PRINT "Tube 1.0. tin.) = "SID 
1448 RETURN 


1458 PRINT °Allow. stress (psi) 


" 
." 
we 

и 


1458 RETURN 

1478 PRINT "Tube Wall’ 

1475 PRINT "Thickness (іп.) = "st 
1488 RETURN 

1899 PRINT "Barlow Formula used" 

1500 RETURN 

1510 PRINT 'Clavarino Formula used” 
1528 RETURN 

1568 REM p as per Clavarino 


-1578 LET p=s/((1.3#OD80D+.4#ID#ID)/(0D#OD-IDš1D)) 


1588 RETURN 
1688 REM PENU 
1518 CLS 

1628 PRINT 


1638 PRINT  НЫНННННННЫНННННННННННННННН" 


1648>PRINT " 

1858 PRINT ° МЕМ)” 

1552 PRINT 

1558 PRINT KEY COMPUTE” 

1678 PRINT 

1688 PRINT "1 — Tube Wall t using 0.0." 
1599 PRINT 

1790 PRINT '2 — Tube Wall t using 1.0." 
1718 PRINT | 

1728 PRINT *3 — Int. Pressure using 0.0.7 
1728 PRINT 

1748 PRINT "4 — Int. Pressure using 1.0." 
1750 PRINT 

1768 PRINT *5 — Actual Stress using 0.2." 
1778 PRINT 

1788 PRINT °6 — Actual Stress using I.D.* 
1798 PRINT 

1888 PRINT : 

1818 PRINT "INPUT CHOICE’ 

1848 INPUT c 

1858 IF cl THEN 60 TO 1958 

1868 IF c-2 THEN 60 TO 2499 

1878 IF c-3 THEN 60 TO 3148 

1888 IF c-4 THEN 60 TO 3718 

1890 IF c-5 THEN 60 TO 4188 

1908 IF c= THEN 60 TO 4598 

1738 GO TO 1688 

1958 REM Coapute t using 0.D. 

1968 60 SUB 500 

1978 60 SUB 758 

1988 60 SUB 810 

1998 60 SUB 888 

2990 IF t>=8.1800 THEN 60 TO 2838 

2918 IF t<@.1#0D THEN 60 TO 2278 

2030 60 SUB 358 


2878 PRINT 

2988 PRINT 

2100 PRINT "INPUT DATA" 
2118 PRINT 

2128 60 SUB 1390 

2138 PRINT 

2148 GO SUB 1410 

2150 PRINT 

2168 60 SUB 1450 


Pm 


€ 


2165 PRINT 
2178 PRINT 
2172 PRINT "ын RESULTS нн" 


aa? PRINT 


2189 60 SUB 1478 
2198 PRINT 
2288 60 SUB 1518 
2218 PRINT 
2220 PRINT 
2238 60 TO 3880 
2268 PRINT 
2278 (15 
2288 PRINT 
2298 PRINT "INPUT DATA’ 
2399 PRINT 
2318 60 SUB 13% 
2328 PRINT 
2330 60 SUB 1418 
2348 PRINT 
2350 60 SUB 1450 
2368 PRINT 

2378 PRINT 


2888 REM t48. 140D 

2878 CLS 

2990 PRINT 

2918 PRINT "INPUT DATA’ 

2920 PRINT 

29398 GO SUB 1439 

2940 PRINT 

2958 60 SUB 1398 

2968 PRINT 

2978 60 SUB 1458 

2988 PRINT 

2998 PRINT 

2092 PRINT "tH RESULTS rH 
3019 PRINT 

3828 60 SUB 1478 

3038 PRINT 

2890 REM Return to Menu 

3098 PRINT “Input a for Menu’ 
3108 INPUT m$ 

3118 IF a$-'a' THEN 60 TO 1622 


3120 IF m$<>°m" THEN 60 TO 3989 


3148 REM p using 0.2. 


2388 PRINT "tH RESULTS нн" 3178 60 SUB 748 
2398 PRINT 3180 PRINT 
2480 60 SUB 1478 3198 60 SUB 858 
2418 PRINT 3200 PRINT 
2428 GO SUB 1498 3218 60 SUB 670 
2438 PRINT 2229 PRINT 
2448 60 TO 380 3238 IF t?-9.140D THEN 60 Т0 3250 
СЭ 2498 REM Coapute t using 1.2. 3248 IF #‹8.1+00 THEN 60 TO 2490 
2580 60 SUB 1100 3258 (15 
2518 60 SUB 580 3258 PRINT 
2528 60 SUB 810 3278 PRINT 
2538 60 SUB 1170 3288 PRINT "t exceeds 8.130, ' 
2540 LET 00=10+2+# 2290 PRINT "using Clavarino Formula" 
2558 IF t>=0.1#0D THEN 60 TO 2588 3388 LET 21=(1. 380D40D4. 4 (00-22) ) /(ODHOD-( (00-28) (0D-28t))) 
2560 IF t<B.1#0D THEN 60 TO 2980 3318 LET р=5/21 
2588 REM t)=2.14#0D 3328 PRINT 
2598 60 SUB |018 2228 PRINT "INPUT DATA' 
208 60 SUB 180 3340 PRINT 
2618 60 SUB 1250 2258 60 SUB 1410 
2628 (15 3368 PRINT 
2639 PRINT 2278 60 SUB 1450 
2648 PRINT "INPUT DATA' 2380 PRINT 
2558 PRINT 3190 60 SUB 1478 
2668 60 SUE 1430 3400 PRINT 
2678 PRINT 3518 PRINT 
2689 60 SUB 1190 2420 PRINT "H RESULTS ын” 
2598 PRINT 3A3B PRINT 
2700 60 SUB 1450 3448 60 SUB 1390 
2718 PRINT 3458 PRINT 
2728 PRINT 3468 60 SUB 1518 
2738 PRINT "+++ RESULTS ан" 3478 60 TO 3888 
2768 PRINT 3498 REM t<B. 1400 
(Ta 2778 60 SUP 1478 200 ds 
2768 PRINT 3518 PRINT 
2798 PRINT 3528 PRINT ‘INPUT DATA' 
2800 60 SUB 1510 2528 PRINT 
2818 PRINT 2548 60 SUB 1410 
2828 PRINT 3568 PRINT 
2838 60 TO 3999 2578 60 SUB 1450 


358@ PRINT 


ее 60 SUB 1478 
399 PRINT 

3618 PRINT 

3628 PRINT 

3638 PRINT "+++ RESULTS нн" 
2549 PRINT 

3558 PRINT 

3668 G0 SUB 1398 
3678 PRINT 

3558 60 SUB 1499 
2598 60 TO 3989 

2718 REM p using I.D. 
3728 60 SUB 118Q 
3738 60 SUP 678 

3748 60 SUB 810 

3/58 GO SUB 1299 
3758 LET OD=ID+2#t 


3778 IF +›=@.1+00 THEN 60 TO 389 
3788 IF t<@.1#0D THEN GO TO 4800 


3308 60 SUB 1578 
3818 CLS 

3878 PRINT 

3838 PRINT “INPUT DATA” 
3840 PRINT 

385@ 60 SUB 1430 
3008 PRINT 

5878 60 SUB 1470 
3888 PRINT 

3899 GO SUB 1450 
3999 PRINT 

3918 PRINT 

3929 PRINT “HH RESULTS нн" 
3938 PRINT 

3948 60 TO 1399 

2958 PRINT 

3768 60 SUB 1512 
2978 PRINT 

3988 60 TO 3089 

4000 CLS 

4818 PRINT 

4828 PRINT “INPUT DATA" 
4932 PRINT 

4248 GO SUB 1430 
4958 PRINT 

4828 60 SUB 1478 
4878 PRINT 

4880 60 SUB 1450 
4298 PRINT 

8190 PRINT 

4118 PRINT "+++ RESULTS =t’ 
4120 PRINT 

4132 GO SUB 1298 
4148 PRINT 

4158 60 SUB 1499 
4168 PRINT 

4178 60 TO 3888 

4180 REM s using 0.0. 
4198 60 SUB 688 

4200 60 SUB 678 

4218 60 SUB 748 


4228 IF t>=8.1#0D THEN 60 TO 4248 


4238 IF +<8.1+00 THEN 60 TO 450 
4248 REM t?-8.1:0D 

4278 LET k7=(1. 320D40D+, A TDETD) / CODIOD- ID ID) 
4280 LET s=ptk7 

4278 CLS 

8300 PRINT 

8210 PRINT "INPUT DATA’ 

4315 PRINT 

8522 60 SUP 1398 

4338 PRINT 

4343 60 SUB 1478 

4350 PRINT 

4348 60 SUB 1418 

4378 PRINT 

4388 PRINT 

8290 PRINT "ын RESULTS ##4° 
4498 PRINT 

4418 PRINT "Actual stress (psi) = "45 
4428 PRINT 

4430 60 SUB 1510 

май 60 TO 298800 

4858 REM {‹0.1+00 


4479 60 SUB 950 
4482 CLS 


5490 PRINT 

4500 PRINT “INPUT DATA' 

4518 PRINT 

4528 60 SUB 13% 

4538 PRINT 

4548 60 SUB 1472 

8550 PRINT 

4568 60 SUB 1418 

4579 PRINT 

4582 PRINT _. 

8590 PRINT "ын RESULTS ан” 

4590 PRINT 

4518 PRINT "Actual stress (psi) = "js 
8520 PRINT 

4638 60 SUB 1498 

4548 PRINT 

4658 60 SUB 1430 

4668 PRINT 

4670 60 TO 3088 

4490 REM s using 1.0. 

4700 60 SUB 6288 

8710 60 SUB 678 

8720 GO SUB 1188 

4738 LET OD=ID+(2#t) 

4748 IF t>=8.1#0D THEN 60 TO 4748 
8782 IF +‹8.1+00 THEN 60 SUB 1220 


_ 4752 60 TO 4988 


4768 LET 21=(1.2#00#00+, 4€ (IDETD) )/(0D+00-ID+ID) 
8778 LET s=ptzi : 
4788 CLS 

4785 PRINT 

47390 PRINT “INPUT DATA' 

8909 PRINT 

4810 60 SUB 1390 

4828 PRINT 

4830 60 SUB 1478 

4848 PRINT 


a9 


4858 60 SUP 1430 5019 PRINT 


* ABAR PRINT 5828 60 SUP 13% 
4878 PRINT 5838 PRINT 
f PRINT *+++ RESULTS eni? 5840 60 SUB 1478 
78 PRINT 5050 PRINT 
4988 PRINT "Actual stress (psi) = *}5 5858 60 SUB 1430 
4918 PRINT 5070 PRINT 
4920 60 SUB 1518 5099 PRINT 
4932 PRINT 5090 PRINT "He RESULTS H+ 
4948 60 SUB 1410 5108 PRINT 
4958 PRINT 5118 PRINT "Actual stress (psi) = 
4968 60 Т0 3868 5128 PRINT 
4970 60 SUB 1228 5138 60 SUB 14% 
4998 (15 5148 PRINT 
4990 PRINT 515@ PRINT °OD (in.) = 
5000 PRINT “INPUT DATA’ 5168 PRINT 
5208 60 TO 3989 
| @ 
LJ 


NEF T/S USERS GROUP APPLICATION FOR MEMBERSHIP 


NAME ; 
ADDRESS 


CITY 
OCCUPATION 


COMPUTERS YOU USE | Я 


MODEMS ? ° 
PRINTERS? HC 
o oo E C 


PLEASE MAIL THIS FORM ALONG WITH $15.00 FOR 
MEMBERSHIP AND NEWSLETTER TO 

NEF TS USERS GROUP 

BILL FISCHER 

419 PARKWOOD DRIVE E. 

ORANGE PARK , FLA 32073 


*10D 


4 


CE SINC TIMES 


I THE SINC TIMES 


-ITOR , I NEWSLETTER EXCHANGE  . 
434 ORIOLE AVE I 2942 CHRISTHOPER RD. 3 
ACKSONVILLE, FLA 32216 I JACKSONVILLE, FLA 32217 


I 


eert Lakes, TL = 
60082 


